home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir42 / amibakup.zip / AMIBAKUP.SMM < prev   
INI File  |  1993-11-23  |  10KB  |  821 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet 4Si/4Si MX
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     LaLaLaLaLa
  19.     
  20.     
  21.     
  22.     
  23.     754081264
  24.     29
  25.     738701124
  26.     1644
  27.     3
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Arial
  60.         240
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         1
  66.         216
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         16
  99.         0
  100.         0
  101.     [nfmt]
  102.         272
  103.         1
  104.         3
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Body Single
  113.     3
  114.     [fnt]
  115.         Times New Roman
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         280
  159.         1
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Body Single
  165.     0
  166.     0
  167. [tag]
  168.     Function
  169.     4
  170.     [fnt]
  171.         Arial
  172.         240
  173.         0
  174.         16385
  175.     [algn]
  176.         1
  177.         1
  178.         0
  179.         0
  180.         0
  181.     [spc]
  182.         33
  183.         244
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         68
  191.     [line]
  192.         8
  193.         0
  194.         1
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         1
  205.         
  206.         0
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         3
  217.         .
  218.         ,
  219.         $
  220.     Body Text
  221.     0
  222.     0
  223. [lay]
  224.     Standard
  225.     513
  226.     [rght]
  227.         15840
  228.         12240
  229.         1
  230.         1440
  231.         1440
  232.         1
  233.         1440
  234.         1440
  235.         0
  236.         1
  237.         0
  238.         1
  239.         0
  240.         2
  241.         1
  242.         1440
  243.         10800
  244.         12
  245.         1
  246.         720
  247.         1
  248.         1440
  249.         1
  250.         2160
  251.         1
  252.         2880
  253.         1
  254.         3600
  255.         1
  256.         4320
  257.         1
  258.         5040
  259.         1
  260.         5760
  261.         1
  262.         6480
  263.         1
  264.         7200
  265.         1
  266.         7920
  267.         1
  268.         8640
  269.     [hrght]
  270.     [lyfrm]
  271.         1
  272.         11200
  273.         0
  274.         0
  275.         12240
  276.         1440
  277.         0
  278.         1
  279.         3
  280.         1 0 0 0 0 0 0
  281.         0
  282.         0
  283.         1
  284.     [frmlay]
  285.         1440
  286.         12240
  287.         1
  288.         1440
  289.         72
  290.         1
  291.         792
  292.         1440
  293.         0
  294.         1
  295.         0
  296.         1
  297.         1
  298.         0
  299.         1
  300.         1440
  301.         10800
  302.         1
  303.         3
  304.         9360
  305.     [txt]
  306. >
  307.     [frght]
  308.     [lyfrm]
  309.         1
  310.         13248
  311.         0
  312.         14400
  313.         12240
  314.         15840
  315.         0
  316.         1
  317.         3
  318.         1 0 0 0 0 0 0
  319.         0
  320.         0
  321.         2
  322.     [frmlay]
  323.         15840
  324.         12240
  325.         1
  326.         1440
  327.         792
  328.         1
  329.         14472
  330.         1440
  331.         0
  332.         1
  333.         0
  334.         1
  335.         1
  336.         0
  337.         1
  338.         1440
  339.         10800
  340.         2
  341.         2
  342.         4680
  343.         3
  344.         9360
  345.     [txt]
  346. >
  347. [elay]
  348. [l1]
  349.     0
  350. [pg]
  351.     3
  352.     44 0 5 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  353.     89 0 32 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  354.     114 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  355. [edoc]
  356. <:#276,9360>DEFINE GetText()    DllCall("user,SendMessage,HHHHD", %1,0x40A, %2, %3)
  357.  
  358. <:#276,9360>DEFINE GetSelItems()    DllCall("user,SendMessage,HHHHN", %1,0x412, %2, %3)
  359.  
  360. <:#276,9360>DEFINE LB_GetSel    0x408
  361.  
  362. <:#276,9360>DEFINE LB_GetSelCount    0x411
  363.  
  364. @Function@<:#283,9360>Function Backup()
  365.  
  366. <:#276,9360>ThisMacro = GetRunningMacroFile$()
  367.  
  368. <:#276,9360>Declare ThisMacro!GetSize(Size)
  369.  
  370. <:#276,9360>Backup:
  371.  
  372. <:#276,9360>SetDlgCallback(9001, "{ThisMacro}!GetSize")
  373.  
  374. <:#276,9360>DOCS = GetDocPath$()
  375.  
  376. <:#276,9360>FillEdit (9001, "{DOCS}*.sam, 16")
  377.  
  378. <:#276,9360>Result = DialogBox(".", "Backup")
  379.  
  380. <:#276,9360>    If Result != 1
  381.  
  382. <:#276,9360>        Exit Function
  383.  
  384. <:#276,9360>    EndIf
  385.  
  386. <:#276,9360>A = GetDialogField$(20)
  387.  
  388. <:#276,9360>B = GetDialogField$(21)
  389.  
  390. <:#276,9360>    If A ="0"
  391.  
  392. <:#276,9360>    And B ="0"
  393.  
  394. <:#276,9360>        Message("Please Select A Drive To Back The Files Up To.")
  395.  
  396. <:#276,9360>        GoTo Backup
  397.  
  398. <:#276,9360>    EndIf
  399.  
  400. <:#276,9360>Files = GetDialogField$(8001)
  401.  
  402. <:#276,9360>    If Files = ""
  403.  
  404. <:#276,9360>        Message("No Files Were Selected For Backing Up.")
  405.  
  406. <:#276,9360>        GoTo Backup
  407.  
  408. <:#276,9360>    EndIf
  409.  
  410. Space = Instr(1, Files, " ")
  411.  
  412. HourGlass(1)
  413.  
  414.     While Space != 0
  415.  
  416. <:#276,9360>
  417.  
  418. <:#276,9360>        File = Left$(Files, {Space} - 1)
  419.  
  420. <:#276,9360>        Files = Right$(Files, len(Files) - Space)
  421.  
  422. <:#276,9360>                Space = Instr(1, Files, " ")
  423.  
  424.             If A = "1"
  425.  
  426.                 StatusBarMsg("Ami Pro Backup Is Now Copying {File} To The A:\ Drive.")
  427.  
  428. <:#276,9360>                DOSCopyFile({File}, "A:\{File}")
  429.  
  430. <:#276,9360>            EndIf
  431.  
  432. <:#276,9360>            If B = "1"
  433.  
  434. <:#552,9360>                StatusBarMsg("Ami Pro Backup Is Now Copying {File} To The B:\ Drive.")
  435.  
  436. <:#276,9360>                DOSCopyFile({File}, "B:\{File}")
  437.  
  438. <:#276,9360>            EndIf
  439.  
  440. <:#276,9360>    
  441.  
  442. <:#276,9360>    Wend
  443.  
  444. <:#276,9360>If Space = 0
  445.  
  446. <:#276,9360>    File = Files
  447.  
  448. <:#276,9360>    EndIf
  449.  
  450. <:#276,9360>If A = "1"
  451.  
  452. <:#276,9360>    StatusBarMsg("Ami Pro Backup Is Now Copying {File} To The A:\ Drive.")
  453.  
  454. <:#276,9360>    DOSCopyFile({File}, "A:\{File}")
  455.  
  456. <:#276,9360>EndIf
  457.  
  458. <:#276,9360>If B = "1"
  459.  
  460. <:#276,9360>    StatusBarMsg("Ami Pro Backup Is Now Copying {File} To The B:\ Drive.")
  461.  
  462. <:#276,9360>    DOSCopyFile({File}, "B:\{File}")
  463.  
  464. <:#276,9360>EndIf
  465.  
  466. <:#276,9360>HourGlass(0)
  467.  
  468. <:#276,9360>StatusBarMsg("")
  469.  
  470. More = Decide("Would you like to backup anymore files?", "Backup Complete!")
  471.  
  472. <:#276,9360>    If More = 1
  473.  
  474. <:#276,9360>        GoTo Backup
  475.  
  476. <:#276,9360>    EndIf
  477.  
  478. @Function@<:#283,9360>End Function
  479.  
  480. @Function@<:#283,9360>
  481.  
  482. @Function@<:#283,9360>Function GetSize(hdlg, Size)
  483.  
  484. <:#276,9360>onerror outahere
  485.  
  486. <:#276,9360>oncancel outahere
  487.  
  488. <:#276,9360>files = getdlgitemtext(hdlg, 8001)
  489.  
  490. <:#276,9360>    if files = ""
  491.  
  492. <:#276,9360>        exit function
  493.  
  494. <:#276,9360>    endif
  495.  
  496. <:#276,9360>countfiles = files
  497.  
  498. <:#276,9360>counter:
  499.  
  500. <:#276,9360>space = instr(1, countfiles, " ")
  501.  
  502. <:#276,9360>    if space != 0
  503.  
  504. <:#276,9360>        numfiles = numfiles + 1
  505.  
  506. <:#276,9360>        leftside = left$(countfiles, space - 1)
  507.  
  508. <:#276,9360>        rightside = right$(countfiles, len(countfiles) - space)
  509.  
  510. <:#276,9360>        countfiles = strcat$(leftside, rightside)
  511.  
  512. <:#276,9360>        goto counter
  513.  
  514. <:#276,9360>    endif
  515.  
  516. <:#276,9360>numfiles = numfiles + 1
  517.  
  518. <:#276,9360>dir = getcurrentdir$()
  519.  
  520. <:#276,9360>    If Numfiles <;> 9
  521.  
  522. <:#552,9360>        Message("You have selected more than 9 files.  Please deselect a file.", "Ami Pro Backup")
  523.  
  524. <:#276,9360>        Numfiles = 9
  525.  
  526. <:#276,9360>    EndIf
  527.  
  528. <:#276,9360>    for x = 1 to numfiles
  529.  
  530. <:#276,9360>        space = instr(1, files, " ")
  531.  
  532. <:#276,9360>        file = left$(files, space - 1)
  533.  
  534. <:#276,9360>        files = right$(files, len(files) - space)
  535.  
  536. <:#276,9360>        id = fopen("{dir}{file}", "r")
  537.  
  538. <:#276,9360>        fseek(id, 0, 2)
  539.  
  540. <:#276,9360>        size = size + ftell(id)
  541.  
  542. <:#276,9360>        fclose(id)
  543.  
  544. <:#276,9360>    next
  545.  
  546. <:#276,9360>outahere:
  547.  
  548. <:#276,9360>fclose(id)
  549.  
  550. <:#276,9360>setdlgitemtext(hdlg, 1005, size)
  551.  
  552. @Function@<:#283,9360>End Function
  553.  
  554. <:#276,9360>
  555.  
  556. <:#276,9360>DIALOG    Backup
  557.  
  558. <:#552,9360>-2134376448    11    98    54    198    142    ""    ""    "Ami Pro File Backup Options"
  559.  
  560. <:#276,9360>3    16    54    89    9001    1352728587    "listbox"    ""    0 
  561.  
  562. <:#276,9360>153    7    40    14    1    1342373889    "button"    "OK"    0 
  563.  
  564. <:#276,9360>153    27    40    14    2    1342373888    "button"    "Cancel"    0 
  565.  
  566. <:#276,9360>60    17    40    12    20    1342242825    "button"    "Drive A:"    0 
  567.  
  568. <:#276,9360>60    29    38    12    21    1342242825    "button"    "Drive B:"    0 
  569.  
  570. <:#276,9360>60    6    36    10    1000    1342177280    "static"    "Backup to:"    0 
  571.  
  572. <:#828,9360>62    45    131    27    1001    1342177280    "static"    "Choose your files to backup and then choose OK.  You cannot choose more than nine files at a time."    0 
  573.  
  574. <:#276,9360>3    5    40    10    1004    1342177280    "static"    "Files:"    0 
  575.  
  576. <:#276,9360>4    108    188    30    8001    1342177280    "static"    ""    0 
  577.  
  578. <:#552,9360>80    78    70    10    1002    1342177280    "static"    "Total Bytes Selected:"    0 
  579.  
  580. <:#276,9360>153    74    42    12    1005    1350631552    "edit"    ""    0 
  581.  
  582. <:#276,9360>END DIALOG
  583.  
  584. >
  585.  
  586. [Embedded]
  587. 00007441
  588. >
  589. [macsum] 3
  590. Backup 0 0 10 4
  591. GetSize 1272 2 11 63
  592. Backup 2128 0 -1 100
  593. [macse]
  594. 14 Backup
  595. 0 802
  596. 13
  597. 8 1
  598. 0 41 9001 "{1}!GetSize"
  599. 0 268
  600. 13
  601. 8 2
  602. 0 31 9001 "{2}*.sam, 16"
  603. 0 26 "." "Backup"
  604. 13
  605. 8 3
  606. 6 3
  607. 5 1
  608. 18 1
  609. 11 00000163
  610. 6 0
  611. 15
  612. 9
  613. 0 27 20
  614. 13
  615. 8 4
  616. 0 27 21
  617. 13
  618. 8 5
  619. 6 4
  620. 7 "0"
  621. 18 0
  622. 6 5
  623. 7 "0"
  624. 18 0
  625. 1 1
  626. 11 00000320
  627. 0 3 "Please Select A Drive To Back The Files Up To."
  628. 10 00000027
  629. 0 27 8001
  630. 13
  631. 8 6
  632. 6 6
  633. 7 ""
  634. 18 0
  635. 11 00000429
  636. 0 3 "No Files Were Selected For Backing Up."
  637. 10 00000027
  638. 0 808 1 "{6}" " "
  639. 13
  640. 8 7
  641. 0 296 1
  642. 6 7
  643. 5 0
  644. 18 1
  645. 11 00000857
  646. 6 7
  647. 5 1
  648. 3 1
  649. 0 806 "{6}" [X]
  650. 13
  651. 8 8
  652. 0 14 "{6}"
  653. 13
  654. 6 7
  655. 3 1
  656. 0 807 "{6}" [X]
  657. 13
  658. 8 6
  659. 0 808 1 "{6}" " "
  660. 13
  661. 8 7
  662. 6 4
  663. 7 "1"
  664. 18 0
  665. 11 00000730
  666. 0 789 "Ami Pro Backup Is Now Copying {8} To The A:\ Drive."
  667. 0 803 "{8}" "A:\{8}"
  668. 6 5
  669. 7 "1"
  670. 18 0
  671. 11 00000844
  672. 0 789 "Ami Pro Backup Is Now Copying {8} To The B:\ Drive."
  673. 0 803 "{8}" "B:\{8}"
  674. 10 00000466
  675. 6 7
  676. 5 0
  677. 18 0
  678. 11 00000896
  679. 6 6
  680. 8 8
  681. 6 4
  682. 7 "1"
  683. 18 0
  684. 11 00001010
  685. 0 789 "Ami Pro Backup Is Now Copying {8} To The A:\ Drive."
  686. 0 803 "{8}" "A:\{8}"
  687. 6 5
  688. 7 "1"
  689. 18 0
  690. 11 00001124
  691. 0 789 "Ami Pro Backup Is Now Copying {8} To The B:\ Drive."
  692. 0 803 "{8}" "B:\{8}"
  693. 0 296 0
  694. 0 789 ""
  695. 0 2 "Would you like to backup anymore files?" "Backup Complete!"
  696. 13
  697. 8 9
  698. 6 9
  699. 5 1
  700. 18 0
  701. 11 00001260
  702. 10 00000027
  703. 6 0
  704. 15
  705. 9
  706. 14 GetSize
  707. 20 00000807
  708. 19 00000807
  709. 0 42 "{0}" 8001
  710. 13
  711. 8 3
  712. 6 3
  713. 7 ""
  714. 18 0
  715. 11 00000106
  716. 6 2
  717. 15
  718. 9
  719. 6 3
  720. 8 4
  721. 0 808 1 "{4}" " "
  722. 13
  723. 8 5
  724. 6 5
  725. 5 0
  726. 18 1
  727. 11 00000326
  728. 6 6
  729. 5 1
  730. 3 0
  731. 8 6
  732. 6 5
  733. 5 1
  734. 3 1
  735. 0 806 "{4}" [X]
  736. 13
  737. 8 7
  738. 0 14 "{4}"
  739. 13
  740. 6 5
  741. 3 1
  742. 0 807 "{4}" [X]
  743. 13
  744. 8 8
  745. 0 16 "{7}" "{8}"
  746. 13
  747. 8 4
  748. 10 00000116
  749. 6 6
  750. 5 1
  751. 3 0
  752. 8 6
  753. 0 290
  754. 13
  755. 8 9
  756. 6 6
  757. 5 9
  758. 18 3
  759. 11 00000487
  760. 0 3 "You have selected more than 9 files.  Please deselect a file." "Ami Pro Backup"
  761. 5 9
  762. 8 6
  763. 5 1
  764. 8 10
  765. 6 6
  766. 6 10
  767. 18 2
  768. 12 00000576
  769. 10 00000807
  770. 5 1
  771. 6 10
  772. 3 0
  773. 8 10
  774. 10 00000498
  775. 0 808 1 "{3}" " "
  776. 13
  777. 8 5
  778. 6 5
  779. 5 1
  780. 3 1
  781. 0 806 "{3}" [X]
  782. 13
  783. 8 11
  784. 0 14 "{3}"
  785. 13
  786. 6 5
  787. 3 1
  788. 0 807 "{3}" [X]
  789. 13
  790. 8 3
  791. 0 259 "{9}{11}" "r"
  792. 13
  793. 8 12
  794. 0 263 "{12}" 0 2
  795. 6 1
  796. 0 262 "{12}"
  797. 13
  798. 3 0
  799. 8 1
  800. 0 260 "{12}"
  801. 10 00000541
  802. 0 260 "{12}"
  803. 0 43 "{0}" 1005 "{1}"
  804. 6 2
  805. 15
  806. 9
  807. DIALOG Backup
  808. -2134376448 11 98 54 198 142 "" "" "Ami Pro File Backup Options" 
  809. 3 16 54 89 9001 1352728587 "listbox" "" 0 
  810. 153 7 40 14 1 1342373889 "button" "OK" 0 
  811. 153 27 40 14 2 1342373888 "button" "Cancel" 0 
  812. 60 17 40 12 20 1342242825 "button" "Drive A:" 0 
  813. 60 29 38 12 21 1342242825 "button" "Drive B:" 0 
  814. 60 6 36 10 1000 1342177280 "static" "Backup to:" 0 
  815. 62 45 131 27 1001 1342177280 "static" "Choose your files to backup and then choose OK.  You cannot choose more than nine files at a time." 0 
  816. 3 5 40 10 1004 1342177280 "static" "Files:" 0 
  817. 4 108 188 30 8001 1342177280 "static" "" 0 
  818. 80 78 70 10 1002 1342177280 "static" "Total Bytes Selected:" 0 
  819. 153 74 42 12 1005 1350631552 "edit" "" 0 
  820. 00007466
  821.